home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
xlib.zip
/
OVR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-08-31
|
3KB
|
79 lines
(*****************************************************************************)
(* *)
(* Filename : OVR.PAS *)
(* Autor : Stefan Böther *)
(* System : TURBO 6.0 / MS-DOS 3.3 / Netzwerk *)
(* Letzte Änderung : *)
(* wann was wer *)
(*---------------------------------------------------------------------------*)
(* 26.09.89 Debug Info entfernt_______________________________ Stefc *)
(* 27.09.89 EMS-integriert / Auch Freigabe funktioniert_______ Stefc *)
(* 03.10.89 Nicht mehr mit ASSIGN / RESET Datei testen________ Stefc *)
(* 24.01.90 Prüfen ob auch die richtige OVR-Datei benutzt wird Stefc *)
(* 17.02.90 5.5 Routine PARAMSTR(0) benutzt -> Programmdatei__ Stefc *)
(* 17.02.90 Wieder mit dem Unit auf R:UNITS abgestimmt________ Stefc *)
(* 18.02.90 Beschreibung GUIDE\OVR.DOK aufbereitet____________ Stefc *)
(* 01.04.90 Integration des Objects Units für ExitListe_______ Stefc *)
(* 25.08.90 Verallgemeinert___________________________________ Stefc *)
(* 14.11.90 EMS-Entfernt______________________________________ Stefc *)
(* 16.11.90 FileMode sichern und wieder setzen________________ Stefc *)
(* 16.11.90 Keine EMS-Benutzung mehr__________________________ Stefc *)
(* 30.12.90 Umstellung auf Turbo Pascal 6.0___________________ Stefc *)
(* 04.09.91 Prüfen ob EXE+OVR Datei zusammenpassen____________ Stefc *)
(* 21.09.91 Ovr-Filemode setzen_______________________________ Stefc *)
(* 27.02.92 Auch EXE Files als Overlay einsetzbar_____________ Stefc *)
(* 27.03.92 Erhöhen der Buffergröße eingebaut_________________ Stefc *)
(* 30.08.92 Use Unit FModes instead of Include________________ Stefc *)
(* 31.08.92 Increase Overlay Buffer only in Main programs_____ Stefc *)
(* *)
(*****************************************************************************)
(* Beschreibung: Verwaltung und Init von Overlaydateien *)
(*****************************************************************************)
UNIT Ovr;
{$D-,O-}
INTERFACE
IMPLEMENTATION
USES Dos,
Overlay,
Ext,
FModes;
PROCEDURE Overlay_Init;
VAR Pfad : DirStr;
Name : NameStr;
Ext : ExtStr;
SFmode : BYTE;
FUNCTION Ext_OvrInit( Ext : ExtStr ) : BOOLEAN;
BEGIN
OvrInit( Pfad + Name + Ext );
Ext_OvrInit := OvrResult = ovrOk;
END;
BEGIN (* Overlay_Init *)
OvrFilemode := fmDenyWrite+fmReadOnly;
FSplit( PARAMSTR( 0 ), Pfad, Name, Ext );
IF NOT Ext_OvrInit( Ovr_Ext ) THEN
IF NOT Ext_OvrInit( Exe_Ext ) THEN
BEGIN
writeln( 'Overlay Error', OvrResult );
Halt( 209 );
END;
OvrInitEMS;
END; (* Overlay_Init *)
BEGIN (* Main *)
Overlay_Init;
END. (* Main *)